home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / kowin / dockob / hello2.kob < prev    next >
Text File  |  1995-11-13  |  529b  |  24 lines
  1. /********************
  2. /* こんちは世界！２ *
  3. /********************
  4. dim str mes(6)={ "こ","ん","ち","は","世","界","！" }
  5. int ms=0
  6.  
  7. ITIME=100    /* 100/100 = 1秒ごとに Einterval() を呼び出す
  8.  
  9. WindowSimpleOpen( 0, WINX, WINY, 48, 48, 0 )        /* オープン
  10. end
  11.  
  12. func Eredraw( wno )
  13.     DrawClear( wno, 1 )                /* 灰色で塗りつぶす
  14. endfunc
  15.  
  16. func Einterval( wno )
  17.     DrawSymbol( wno, 12, 12, mes(ms), 9, 24 )
  18.         /* (12,12) に、"こんちは世界！"の ms 文字目を
  19.         /* 黒の 24ドットフォントで書く
  20.     ms=ms+1
  21.     if ms>6 then ms=0
  22. endfunc
  23.  
  24.